# Variable globale contenant la liste de noeuds connus
global var_listeNoeuds

################################################################################
#
# Procedure permettant d'ajouter un noeud dans la liste
#
# => param_id : id du noeud a ajouter a la liste des noeuds connus
#
################################################################################
proc proc_ajouterNoeud { param_id } {
	global var_listeNoeuds

	set var_listeNoeuds($param_id) $param_id
}

################################################################################
# Procedure permettant d'ajouter un noeud dans la liste avec le pseudo 
# correspondant
#    * Si doublon par rapport a l'id : maj du pseudo
#
# => param_id : id du noeud dont on veut modifier le pseudo
# => param_pseudo : nouveau pseudo du noeud#
#
################################################################################
proc proc_noeudSetPseudo { param_id param_pseudo } {
	global var_listeNoeuds
	
	if { [info exists var_listeNoeuds($param_id)] == 0 } {
		proc_ajouterNoeud $param_id
	}

	set var_listeNoeuds($param_id) $param_id
	set var_listeNoeuds($param_id,pseudo) $param_pseudo
}

################################################################################
#
# Procedure permettant de recuperer le pseudo d'un noeud
#
# => param_id : id du noeud dont on veut recuperer le pseudo
#
# <= pseudo du noeud
#
################################################################################
proc proc_getNoeudPseudo { param_id } {
	global var_listeNoeuds
	
	if { [info exists var_listeNoeuds($param_id,pseudo)] == 0 } {
		return "inconnu(e)"
	} else {
		return $var_listeNoeuds($param_id,pseudo)
	}
}

################################################################################
#
# Procedure permettant de recuperer la liste des ids des noeuds
#
# <= liste des ids de tous les noeuds connus
#
################################################################################
proc proc_getListeNoeudId { } {
	global var_listeNoeuds
	
	set var_listeNoeuds {}
	
	foreach var_idNoeud [array names var_listeNoeuds -regexp {^[^,]*$}]  {
		lappend var_listeRetour var_idNoeud
	}
	
	return $var_listeRetour
}	
